home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000141_icon-group-sender _Thu Dec 17 16:31:12 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  983b
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id QAA26207
  4.     for icon-group-addresses; Thu, 17 Dec 1998 16:31:06 -0700 (MST)
  5. Message-Id: <199812172331.QAA26207@baskerville.CS.Arizona.EDU>
  6. From: gep2@computek.net
  7. Date: Thu, 17 Dec 1998 14:03:02 -0600 (CST)
  8. Subject: Re: Small Icon programming problem
  9. To: icon-group@optima.CS.Arizona.EDU
  10. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  11. Status: RO
  12.  
  13. > Here is a rather straightforward solution to the problem of
  14. sorting digits while preserving the sign of an integer.
  15.  
  16. Here's another, in SNOBOL4 this time (assuming running under SPITBOL, or that 
  17. FULLSCAN is turned on):
  18.  
  19.     DEFINE("DISORT(DISORT)I,J")
  20.     DD = "0123456789"            :(DISORT_END)
  21. DISORT  DISORT ANY(DD) $ I ANY(DD) $ J *GT(I,J) = J I   :S(DISORT)F(RETURN)
  22. DISORT_END
  23.  
  24. Gordon Peterson
  25. http://www.computek.net/public/gep2/
  26. Support the Anti-SPAM Amendment!  Join at http://www.cauce.org/
  27.  
  28.